
(defun write-to-defined-stream (stream)
  (princ #\A stream)
  (princ "rope" stream)
  (princ "sigh" stream)
  nil
  )

(defun test-ss ()
  (let ((stream (make-string-output-stream)))
    (write-to-defined-stream stream)

    ; writing finished, get string
    (get-output-stream-string stream)
    ))

(defun main ()
  (write-to-defined-stream *standard-output*)
  )
